Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports DevComponents.DotNetBar
Imports quanlydulich.Helpers

Partial Public Class FrmDoiMatKhau
    Inherits Office2007Form
    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub btnDongY_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim errorText As String = ""
        If txtOldPassword.Text = "" Then
            errorText = "Chưa nhập mật khẩu hiện tại!"
            GoTo Cont
        End If

        If txtNewPassword.Text = "" Then
            errorText = "Chưa nhập mật khẩu mới!"
            GoTo Cont
        End If

        If txtReNPassword.Text = "" Then
            errorText = "Chưa nhập xác nhận mật khẩu!"
            GoTo Cont
        End If

        Dim password As String = GlobalVars.g_CurrentUser.MatKhau

        Dim m_OldPassword As String = txtOldPassword.Text
        Dim m_NewPassword As String = txtNewPassword.Text
        Dim m_ReNPassword As String = txtReNPassword.Text

        If password <> Encryption.Encrypt(m_OldPassword) Then
            errorText = "Nhập sai mật khẩu cũ!"
            GoTo Cont
        ElseIf m_NewPassword <> m_ReNPassword Then
            errorText = "Nhập xác nhận không khớp!"
            GoTo Cont
        Else
            GlobalVars.g_CurrentUser.MatKhau = Encryption.Encrypt(m_NewPassword)
            Dim objNhanVienBUS As NHANVIENBUS = New NHANVIENBUS(GlobalVars.g_strConnectionString)
            If objNhanVienBUS.Update(GlobalVars.g_CurrentUser) Then
                MessageBoxEx.Show("Đổi mật khẩu thành công!", "PASSWORD CHANGED", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Return
            End If
        End If
Cont:
        MessageBoxEx.Show(errorText, "PASSWORD CHANGED", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
    End Sub

    Private Sub btnHuyBo_Click(ByVal sender As Object, ByVal e As EventArgs)
        Close()
    End Sub
End Class
